home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / tos_updt / fmcity / palcom / auto / script / newscom.mx < prev    next >
Text File  |  1995-02-10  |  3KB  |  108 lines
  1. //--------------------------------------------------------------------------//
  2. //                        ＰＡＬＣＯＭ　Ｖ２．１　Ｌ１０                        //
  3. //                  自動通信：フラッシュニュース設定スクリプト                //
  4. //                                                                            //
  5. //                                        CopyRight(C) 1994/10/20                //
  6. //                                FUJITSU PERSONAL COMPUTER SYSTEMS LIMITED    //
  7. //                                        written by C-cube Soft T.Nakamura    //
  8. //--------------------------------------------------------------------------//
  9. //  本スクリプトは、$$USER.DEFINED.9 を引数及び復帰値格納用に使用します。    //
  10. //    【入力】                                                                //
  11. //      $$USER.DEFINED.9 = [                                                //
  12. //            フラッシュニュース状態,                                            //
  13. //            フラッシュニュース状態ファイルオフセット,                        //
  14. //        ]                                                                    //
  15. //                                                                            //
  16. //--------------------------------------------------------------------------//
  17. event    @OPEN.EXTERN {
  18.     $AUTO.WAIT15 = AUTO.getWaitChar( 15 );
  19.     $AUTO.WAIT60 = AUTO.getWaitChar( 60 );
  20.  
  21.     //---   フラッシュニュースの設定に入る   ---//
  22.     sys.stopIntRec();
  23.     loop {
  24.         AUTO.putStr("GO FLASH\r");
  25.         $errFlg  = 1;
  26.         comtable( $a, 300 ) {
  27.             interval        { AUTO.haltCheck();  }
  28.             "GO FLASH\n"    { $errFlg = 0; exit; }
  29.         }
  30.         if( $errFlg == 0 ) {
  31.             exit;
  32.         }
  33.         AUTO.putStr("\r");
  34.         AUTO.waitPrompt( #TRUE );
  35.         continue;
  36.     }
  37.     $tmpList = [];
  38.     $inFlg   = 0;
  39.     comtable( $a, 0 ) {
  40.         interval        { AUTO.haltCheck();        }
  41.         $AUTO.WAIT60    { AUTO.putStr("\r");    }
  42.         "FLASH\n"        { $inFlg = 1;            }
  43.         "＞\w\w"        { exit;                    }
  44.     }
  45.     if( $inFlg == 0 ) {
  46.         //---   フラッシュニュースの設定に入れなかった   ---//
  47.         $errMsg = ["フラッシュニュースに入ることが出来ませんでした。",
  48.                    "フラッシュニュースの設定を中断しました。"];
  49.         AUTO.error("フラッシュニュースの設定", $errMsg );
  50.         return;
  51.     }
  52.  
  53.     //---   現在の設定状態を判断し、設定するかしないかを判断する   ---//
  54.     AUTO.putStr2("2\r");
  55.     comtable( $a, 1200 ) {
  56.         interval        { AUTO.haltCheck();            }
  57.         $AUTO.WAIT60    { AUTO.putStr("\r");        }
  58.         "現在：設定する"{ $flg = #TRUE;                }
  59.         "現在：しない"    { $flg = #FALSE;            }
  60.         "＞\w\w"        { $flg = #UNKNOWN; exit;    }
  61.         ":\w\w"            { exit;                        }
  62.     }
  63.     if( $flg == #UNKNOWN ) {
  64.         //---   エグゼクティブオプションの設定を行っていない   ---//
  65.         $errMsg = ["エグゼクティブオプションが設定されていないため、",
  66.                    "フラッシュニュースの設定を行えませんでした。",
  67.                    "フラッシュニュースの設定を中断しました。"];
  68.         AUTO.error("フラッシュニュースの設定", $errMsg );
  69.         return;
  70.     }
  71.     if( list.get1st( $$USER.DEFINED.9 ) == $flg ) {
  72.         if( $flg == #TRUE ) {
  73.             AUTO.sendCommand("2");
  74.         } else {
  75.             AUTO.sendCommand("1");
  76.         }
  77.     } else {
  78.         AUTO.sendCommand("");
  79.     }
  80.  
  81.     //---   データベースの更新   ---//
  82.     $db = AUTO.getTrdId();
  83.     if( list.get1st( $$USER.DEFINED.9 ) == #TRUE ) {
  84.         trd.setData( $db, [1,2], "設定なし" );
  85.     } else {
  86.         trd.setData( $db, [1,2], "設定あり" );
  87.     }
  88.     AUTO.setTrdUpdateFlg();
  89.  
  90.     //---   設定ファイルの値を書き換える   ---//
  91.     $fname = list.getNth( AUTO.getSetName(), 2 );
  92.     $id = file.open( $fname, "", 1 );
  93.     file.seek( $id, list.getNth( $$USER.DEFINED.9, 2 ), 0 );
  94.     file.putByte( $id, code("2"));
  95.     file.close( $id );
  96.  
  97.     return;
  98. }
  99. event    @CLOSE.EXTERN {
  100.     sys.startIntRec();
  101.     return;
  102. }
  103. event    @ERROR {
  104.     sys.startIntRec();
  105.     AUTO.fatalError();
  106.     event.mainLoop();
  107. }
  108.